################################################################################
#最大期望算法（Expectation-maximizationalgorithm，又译期望最大化算法）
#聚类算法
################################################################################

#查看数据集前六个观测
head(iris)

#第一步：加载R包
library(mclust)

#第二步：构建EM算法模型
model.EM <-Mclust(subset(iris, select= -Species))

#第三步：生成混淆矩阵
table(model.EM$classification, iris$Species)